home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
griddemo
/
gridmain.dfm
/
gridmain.txt
next >
Wrap
Text File
|
1996-04-08
|
3KB
|
143 lines
object Form1: TForm1
Left = 189
Top = 103
Width = 499
Height = 382
Caption = 'Form1'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
OnCreate = FormCreate
TextHeight = 16
object ImageTrue: TImage
Left = 214
Top = 284
Width = 84
Height = 19
Picture.Data = {<image000.bmp>}
end
object ImageFalse: TImage
Left = 178
Top = 264
Width = 85
Height = 20
Picture.Data = {<image001.bmp>}
end
object DBNavigator1: TDBNavigator
Left = 97
Top = 236
Width = 241
Height = 25
DataSource = DataSourceGridData
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object DBGrid1: TDBGrid
Left = 0
Top = 8
Width = 465
Height = 223
DataSource = DataSourceGridData
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'System'
TitleFont.Style = []
OnColExit = DBGrid1ColExit
OnDrawDataCell = DBGrid1DrawDataCell
OnKeyPress = DBGrid1KeyPress
end
object DBLookupCombo1: TDBLookupCombo
Left = 4
Top = 244
Width = 121
Height = 25
TabStop = False
DataField = 'CustNo'
DataSource = DataSourceGridData
LookupSource = DataSourceCust
LookupDisplay = 'Company'
LookupField = 'CustNo'
DropDownWidth = 200
TabOrder = 2
end
object DBCheckBox1: TDBCheckBox
Left = 30
Top = 278
Width = 91
Height = 17
TabStop = False
Alignment = taLeftJustify
DataField = 'CheckBox'
DataSource = DataSourceGridData
ParentColor = False
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = DBCheckBox1Click
end
object DBComboBox1: TDBComboBox
Left = 338
Top = 230
Width = 145
Height = 24
DataField = 'ShipVIA'
DataSource = DataSourceGridData
ItemHeight = 16
Items.Strings = (
'UPS'
'DHL'
'Emery'
'US Mail'
'FedEx')
TabOrder = 4
end
object TableGridData: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'GRIDDATA.DB'
Left = 4
Top = 18
object TableGridDataOrderNo: TFloatField
DisplayWidth = 8
FieldName = 'OrderNo'
end
object TableGridDataCustNo: TFloatField
DisplayLabel = 'DBLookupCombo'
DisplayWidth = 18
FieldName = 'CustNo'
Required = True
end
object TableGridDataShipVIA: TStringField
DisplayLabel = 'DBCombo'
DisplayWidth = 13
FieldName = 'ShipVIA'
Size = 7
end
object TableGridDataCheckBox: TBooleanField
DisplayWidth = 10
FieldName = 'CheckBox'
end
end
object DataSourceGridData: TDataSource
DataSet = TableGridData
Left = 2
Top = 40
end
object TableCust: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'CUSTOMER.DB'
Left = 2
Top = 76
end
object DataSourceCust: TDataSource
DataSet = TableCust
Left = 4
Top = 102
end
end